home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 2000 October
/
PCWorld_2000-10_cd2.bin
/
lotus
/
Organizer 6.exe
/
INSTALL1.DSK
/
START.LSS
< prev
Wrap
Text File
|
1999-09-15
|
3KB
|
100 lines
''/*********************************************************************
''
'' Module Name: start.lso
''
'' Module Code: TOOLKIT
''
'' Author:
''
'' Creation Date: Aug 31, 1993
''
'' Copyright Lotus Development Corporation, (c) 1991
''
''
''
'' Description:
'' Lotus script file for common install
''
''
'' Additional authors:
''
'' Change History:
'' $Log: //SS_DEV/INSTLOG/CI/cominst/orgkit/start.lso $
''
'' Rev 1.10 13 Aug 1997 13:10:58 jdonohue
'' Ref. SPR: HKIN34BKC9
'' Added PleaseWait function that surfaces a modeless dialog saying "Please wait.."
''
'' Rev 1.9 Oct 24 1995 16:57:34 cmoy
'' removed eof char
''
'' Rev 1.8 Oct 16 1995 10:39:22 cmoy
'' separate out resources into ORGres for international
''
'' Rev 1.7 31 Jul 1995 14:47:48 jdonohue
'' Added register.lso
''
'' Rev 1.6 08 Jun 1995 15:40:10 amontalv
'' Added a check to see if toolkit initialization fails. If it fails then stop
'' all processing.
''
'' Rev 1.5 18 May 1995 11:06:12 jdonohue
'' Moved language.lso before org.lss
''
'' Rev 1.4 17 May 1995 18:21:24 mzgripce
'' remove lic.lso and add language.lss
''
'' Rev 1.3 16 May 1995 17:06:24 glutz
'' Added automate.lso
''
'' Rev 1.2 02 May 1995 12:54:00 cmoy
'' Merged c2 into cf build
''
'' Rev 1.1 13 Apr 1995 16:45:24 mzgripce
'' add share32.lso
''
'' Rev 1.0 11 Feb 1994 10:53:12 jbrodeur
'' Initial Revision
''----------------------------------------------------------------------
'' Date Vers. Pgmr SPR# Change
''----------------------------------------------------------------------
'' 02-01-94 0002 MMETH added inst.lso
'' !
'' 9-09-93 0001 MEM Changed DoLoad to Compile
''
''----------------------------------------------------------------------
''
''*********************************************************************/
OPTION DECLARE
DECLARE PUBLIC SUB PleaseWait LIB "lcomstf.dll" ALIAS "?PleaseWait@@YGXH@Z" (ByVal yes%)
PUBLIC ToolKitInitalizeError&
sub initialize
DIM notused%
notused = DoLoad ("ORGres.lso")
notused = DoLoad ("resource.lso")
notused = DoLoad ("globals.lso")
notused = DoLoad ("setupapi.lso")
notused = DoLoad ("register.lso")
notused = DoLoad ("toolkit.lso")
' Surface modeless dialog saying "Please wait ..."
PleaseWait 1
IF NOT ToolKitInitalizeError& = 0 THEN EXIT SUB
notused = DoLoad ("automate.lso")
notused = DoLoad ("callback.lso")
notused = DoLoad ("share32.lso")
notused = DoLoad ("share.lso")
notused = DoLoad ("language.lso")
notused = DoLoad ("ORG.lso")
notused = DoLoad ("inst.lso")
' Destroy modeless dialog saying "Please wait ..."
PleaseWait 0
notused = DoLoad ("main.lso")
end sub